home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / _GUICtrlComboInsertString.au3 < prev    next >
Encoding:
Text File  |  2006-06-17  |  1.0 KB  |  32 lines
  1. #include <GuiConstants.au3>
  2. #include <GuiCombo.au3>
  3.  
  4. Opt('MustDeclareVars',1)
  5.  
  6. Dim $Label,$Input,$Btn_Insert,$Combo,$Btn_Exit,$msg,$Status,$i_index
  7.  
  8. GuiCreate("ComboBox Insert String", 392, 254)
  9.  
  10. $Label = GuiCtrlCreateLabel("Enter String to Insert", 20, 20, 120, 20)
  11. $Input = GuiCtrlCreateInput("", 160, 20, 180, 20)
  12. $Btn_Insert = GuiCtrlCreateButton("Add String", 210, 50, 90, 30)
  13. $Combo = GuiCtrlCreateCombo("A", 70, 100, 270, 100,$CBS_SIMPLE)
  14. GUICtrlSetData($Combo,"B|C|D|E|F")
  15. $Btn_Exit = GuiCtrlCreateButton("Exit", 150, 200, 90, 30)
  16. $Status = GUICtrlCreateLabel("",0,234,392,20,BitOR($SS_SUNKEN,$SS_CENTER))
  17.  
  18. GuiSetState()
  19. While 1
  20.     $msg = GuiGetMsg()
  21.     Select
  22.         Case $msg = $GUI_EVENT_CLOSE Or $msg = $Btn_Exit
  23.             ExitLoop
  24.         Case $msg = $Btn_Insert
  25.             If(StringLen(GUICtrlRead($Input)) > 0) Then
  26.                 $i_index =_GUICtrlComboInsertString($Combo,_GUICtrlComboGetCurSel($Combo),GUICtrlRead($Input))
  27.                 GUICtrlSetData($Status,"String Inserted At Index: " & $i_index)
  28.             EndIf
  29.     EndSelect
  30. WEnd
  31. Exit
  32.